I began this project for my own benefit. I was working on the development of a couple of projects that needed to access various Microsoft Office applications. I found it easier to use this OCX than to rewrite the code each and every time.

As I continued to add properties and methods I thought there might be a use for this beyond my own. Feel free to request additional functions be added to this control. I have no idea what the needs are for such a control beyond my own. I will turnout new versions with additional features a quickly as I can. 

PC Trends is a company made up of my brother and me. I specialize in custom software for law offices - case management, engineering firms - project management and general database connectivity. If you would like to contact me, send an 
e-mail to: controls@pctrends.freeservers.com
or the web at: http://pctrends.freeservers.com/

SAMPLE SUBS

•	This will create a new e-mail in Outlook and pass the below information to Outlook 
Private Sub Command1_Click()
Assistant1.MailTo = "someone@overthere.com"
Assistant1.MailCC = "you@overthere.com"
Assistant1.Subject = "This is the subject string"
Assistant1.Body = "Output desired to be entered in the body of the e-mail"
'set all of the properties before creating the new e-mail object.
'The properties can be set at design or run time.
Assistant1.NewMail
End Sub
•	This will send an Access Report straight to the system's default printer. 
Private Sub Command2_Click()
Assistant1.DatabaseName = "d:\database\mydata.mdb"
Assistant1.ReportName = "MyReport"
Assistant1.PrintAccessReport
End Sub
•	I also have this OCX doing a few things that are not Office dependent but that I needed when I was doing my projects. The following is an examlpe of how to use the encryption method. 
Private Sub Command3_Click()
Dim sMyText As String
sMyText = Text1.Text
Assistant1.Encrypt (sMyText)
' Then fill the text box with the encrypted string.
Text1.Text = Assistant1.Encrypted
End Sub